home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / docs / lists / LibGuide.lha / LibGuide / CheckAVolume < prev    next >
Text File  |  1999-04-08  |  202b  |  12 lines
  1. Stack 500000
  2. If Exists Env:Pfad
  3.     Delete Env:Pfad
  4. EndIf
  5. RequestFile DRAWER="Ram:" TITLE "Select a volume" DRAWERSONLY SAVEMODE >Env:Pfad
  6. If WARN
  7.     SKIP SCHLUSS
  8. EndIf
  9. VersCheck -1 $Pfad
  10.  
  11. LAB SCHLUSS
  12.